home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.3 / Group1 / Fytaktar.exe / 0 / RCDATA / TFILECTRLS / TFILECTRLS.txt
Text File  |  1998-06-28  |  11KB  |  406 lines
  1. object FileCtrls: TFileCtrls
  2.   Left = 56
  3.   Top = 88
  4.   HelpContext = 706
  5.   ActiveControl = FileEdit
  6.   BorderStyle = bsDialog
  7.   Caption = 'YEN∩┐╜ F∩┐╜YAT DOSYASINDAN F∩┐╜YATLARI AKTARMA'
  8.   ClientHeight = 299
  9.   ClientWidth = 498
  10.   Color = clSilver
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = [fsBold]
  15.   Position = poScreenCenter
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Bevel1: TBevel
  19.     Left = 3
  20.     Top = -29
  21.     Width = 493
  22.     Height = 326
  23.     Style = bsRaised
  24.   end
  25.   object PathLabel: TLabel
  26.     Left = 202
  27.     Top = 96
  28.     Width = 46
  29.     Height = 13
  30.     Caption = 'C:\ecz8'
  31.   end
  32.   object Label2: TLabel
  33.     Left = 8
  34.     Top = 74
  35.     Width = 62
  36.     Height = 13
  37.     Caption = 'Dosya &Ad∩┐╜:'
  38.     FocusControl = FileEdit
  39.   end
  40.   object Label1: TLabel
  41.     Left = 8
  42.     Top = 216
  43.     Width = 137
  44.     Height = 13
  45.     Caption = 'Listelenecek Dosya &Tipi'
  46.     FocusControl = FilterComboBox1
  47.   end
  48.   object Label3: TLabel
  49.     Left = 202
  50.     Top = 76
  51.     Width = 47
  52.     Height = 13
  53.     Caption = '&Dizinler:'
  54.     FocusControl = DirectoryListBox1
  55.   end
  56.   object Label4: TLabel
  57.     Left = 201
  58.     Top = 216
  59.     Width = 55
  60.     Height = 13
  61.     Caption = '&S∩┐╜r∩┐╜c∩┐╜ler'
  62.     FocusControl = DriveComboBox1
  63.   end
  64.   object Label5: TLabel
  65.     Left = 8
  66.     Top = 263
  67.     Width = 363
  68.     Height = 13
  69.     Caption = 
  70.       'Fiyat Aktar ∩┐╜∩┐╜leminden ∩┐╜nce ∩┐╜r∩┐╜nle ilgili b∩┐╜l∩┐╜mleri l∩┐╜tfen kapat' +
  71.       '∩┐╜n.'
  72.     Font.Color = clRed
  73.     Font.Height = -11
  74.     Font.Name = 'MS Sans Serif'
  75.     Font.Style = [fsBold]
  76.     ParentFont = False
  77.   end
  78.   object Label6: TLabel
  79.     Left = 8
  80.     Top = 278
  81.     Width = 284
  82.     Height = 13
  83.     Caption = 
  84.       '∩┐╜la∩┐╜ fiyatlar∩┐╜ndaki yaln∩┐╜∩┐╜l∩┐╜klar∩┐╜ndan firmam∩┐╜z sorumlu tutulamaz' +
  85.       '.'
  86.     Font.Color = clBlack
  87.     Font.Height = -11
  88.     Font.Name = 'MS Sans Serif'
  89.     Font.Style = []
  90.     ParentFont = False
  91.   end
  92.   object Label7: TLabel
  93.     Left = 387
  94.     Top = 257
  95.     Width = 36
  96.     Height = 13
  97.     Caption = '∩┐╜lerleme'
  98.     Font.Color = clNavy
  99.     Font.Height = -11
  100.     Font.Name = 'MS Sans Serif'
  101.     Font.Style = []
  102.     ParentFont = False
  103.   end
  104.   object Label8: TLabel
  105.     Left = 210
  106.     Top = 56
  107.     Width = 284
  108.     Height = 13
  109.     Caption = 'L∩┐╜TFEN ∩┐╜NCE F1 TU∩┐╜UNA BASIP YARDIM ALIN'
  110.     Font.Color = clRed
  111.     Font.Height = -11
  112.     Font.Name = 'MS Sans Serif'
  113.     Font.Style = [fsBold]
  114.     ParentFont = False
  115.   end
  116.   object FileListBox1: TFileListBox
  117.     Left = 8
  118.     Top = 115
  119.     Width = 175
  120.     Height = 100
  121.     FileEdit = FileEdit
  122.     FileType = [ftArchive, ftNormal]
  123.     IntegralHeight = True
  124.     ItemHeight = 16
  125.     Mask = 'yenifyt.db'
  126.     ShowGlyphs = True
  127.     TabOrder = 6
  128.     OnDblClick = FileListBox1DblClick
  129.   end
  130.   object DirectoryListBox1: TDirectoryListBox
  131.     Left = 201
  132.     Top = 115
  133.     Width = 175
  134.     Height = 100
  135.     DirLabel = PathLabel
  136.     FileList = FileListBox1
  137.     IntegralHeight = True
  138.     ItemHeight = 16
  139.     TabOrder = 7
  140.   end
  141.   object DriveComboBox1: TDriveComboBox
  142.     Left = 201
  143.     Top = 232
  144.     Width = 175
  145.     Height = 19
  146.     DirList = DirectoryListBox1
  147.     TabOrder = 9
  148.   end
  149.   object FilterComboBox1: TFilterComboBox
  150.     Left = 8
  151.     Top = 232
  152.     Width = 175
  153.     Height = 21
  154.     FileList = FileListBox1
  155.     Filter = 
  156.       'yenifyt.db|yenifyt.db|Paradox Dosyalar∩┐╜ (*.db)|*.DB|T∩┐╜m Dosyalar' +
  157.       '(*.*)|*.*'
  158.     TabOrder = 8
  159.   end
  160.   object FileEdit: TEdit
  161.     Left = 8
  162.     Top = 90
  163.     Width = 175
  164.     Height = 21
  165.     TabOrder = 5
  166.     Text = 'yenifyt.db'
  167.     OnKeyPress = FileEditKeyPress
  168.   end
  169.   object BtnFIYAKT: TBitBtn
  170.     Left = 388
  171.     Top = 115
  172.     Width = 99
  173.     Height = 27
  174.     Caption = '&Fiyat Aktar'
  175.     Font.Color = clNavy
  176.     Font.Height = -12
  177.     Font.Name = 'Arial'
  178.     Font.Style = [fsBold]
  179.     ParentFont = False
  180.     TabOrder = 3
  181.     OnClick = BtnFIYAKTClick
  182.     Glyph.Data = {
  183.       76010000424D7601000000000000760000002800000020000000100000000100
  184.       04000000000000010000130B0000130B00000000000000000000000000000000
  185.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  186.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
  187.       FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
  188.       FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
  189.       FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
  190.       0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
  191.       9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
  192.       9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
  193.       99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
  194.       93337777FF777777733370000000073333333777777773333333}
  195.     NumGlyphs = 2
  196.   end
  197.   object BitBtn2: TBitBtn
  198.     Left = 388
  199.     Top = 224
  200.     Width = 99
  201.     Height = 27
  202.     Font.Color = clNavy
  203.     Font.Height = -12
  204.     Font.Name = 'Arial'
  205.     Font.Style = [fsBold]
  206.     ParentFont = False
  207.     TabOrder = 4
  208.     Kind = bkClose
  209.   end
  210.   object BtnFYTGOR: TBitBtn
  211.     Left = 388
  212.     Top = 151
  213.     Width = 99
  214.     Height = 27
  215.     Caption = 'Fiyatlar∩┐╜ &G∩┐╜r '
  216.     Font.Color = clNavy
  217.     Font.Height = -12
  218.     Font.Name = 'Arial'
  219.     Font.Style = [fsBold]
  220.     ParentFont = False
  221.     TabOrder = 2
  222.     OnClick = BtnFYTGORClick
  223.     Glyph.Data = {
  224.       78010000424D7801000000000000760000002800000020000000100000000100
  225.       04000000000000000000120B0000120B00000000000000000000000000000000
  226.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  227.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555500000000
  228.       0555555F7777777775F55500FFFFFFFFF0555577F5FFFFFFF7F550F0FEEEEEEE
  229.       F05557F7F777777757F550F0FFFFFFFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
  230.       F05557F7F777777757F550F0FF777FFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
  231.       F05557F7F777777757F550F0FF7F777FF05557F7F5FFFFFFF7F550F0FEEEEEEE
  232.       F05557F7F777777757F550F0FF77F7FFF05557F7F5FFFFFFF7F550F0FEEEEEEE
  233.       F05557F7F777777757F550F0FFFFFFFFF05557F7FF5F5F5F57F550F00F0F0F0F
  234.       005557F77F7F7F7F77555055070707070555575F7F7F7F7F7F55550507070707
  235.       05555575757575757555555050505050555555575757575755550000}
  236.     NumGlyphs = 2
  237.   end
  238.   object BtnMODEM: TBitBtn
  239.     Left = 8
  240.     Top = 3
  241.     Width = 199
  242.     Height = 29
  243.     Caption = '&BBS'#39'ten Fiyat Dosyas∩┐╜n∩┐╜ Al '
  244.     Font.Color = clBlack
  245.     Font.Height = -12
  246.     Font.Name = 'Arial'
  247.     Font.Style = [fsBold]
  248.     ParentFont = False
  249.     TabOrder = 0
  250.     OnClick = BtnMODEMClick
  251.     Glyph.Data = {
  252.       78010000424D7801000000000000760000002800000020000000100000000100
  253.       04000000000000000000120B0000120B00000000000000000000000000000000
  254.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  255.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003B3000000000
  256.       003B37F77777777777F73BB09111111110BB3777F3F3F3F3F777311098080808
  257.       10B33777F7373737377313309999999910337F373F3F3F3F3733133309808089
  258.       03337F3373737373733313333099999033337FFFF7FFFFF7FFFFB011B0000000
  259.       BBBB7777777777777777B01110BBBBB0BBBB77F37777777777773011108BB333
  260.       333337F337377F3FFFF33099111BB3010033373F33777F77773F331999100101
  261.       11033373FFF77773337F33300099991999033337773FFFF33373333BB7100199
  262.       113333377377773FF7F333BB333BB7011B33337733377F7777FF3BB3333BB333
  263.       3BB3377333377F33377FBB33333BB33333BB77333337733333770000}
  264.     NumGlyphs = 2
  265.   end
  266.   object BitBtnInternet: TBitBtn
  267.     Left = 8
  268.     Top = 41
  269.     Width = 199
  270.     Height = 29
  271.     Caption = '∩┐╜nternet'#39'ten Fiyat Dosyas∩┐╜n∩┐╜ &Al'
  272.     Font.Color = clBlack
  273.     Font.Height = -12
  274.     Font.Name = 'Arial'
  275.     Font.Style = [fsBold]
  276.     ParentFont = False
  277.     TabOrder = 1
  278.     OnClick = BtnMODEMClick
  279.     Glyph.Data = {
  280.       78010000424D7801000000000000760000002800000020000000100000000100
  281.       04000000000000000000120B0000120B00000000000000000000000000000000
  282.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  283.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  284.       5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
  285.       5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
  286.       335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
  287.       C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
  288.       CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
  289.       C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
  290.       CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
  291.       5555555775FFFF77555555555C4CCC55555555555777775555550000}
  292.     NumGlyphs = 2
  293.   end
  294.   object ProgressBar1: TProgressBar
  295.     Left = 387
  296.     Top = 272
  297.     Width = 99
  298.     Height = 16
  299.     Min = 0
  300.     Max = 100
  301.     Step = 5
  302.     TabOrder = 10
  303.   end
  304.   object BtnFARK: TBitBtn
  305.     Left = 388
  306.     Top = 188
  307.     Width = 99
  308.     Height = 27
  309.     Caption = 'Fark Toplam∩┐╜'
  310.     Font.Color = clNavy
  311.     Font.Height = -12
  312.     Font.Name = 'Arial'
  313.     Font.Style = [fsBold]
  314.     ParentFont = False
  315.     TabOrder = 11
  316.     OnClick = BtnFARKClick
  317.     NumGlyphs = 2
  318.   end
  319.   object RadioGrFYT: TRadioGroup
  320.     Left = 212
  321.     Top = 5
  322.     Width = 278
  323.     Height = 47
  324.     Caption = 'Aktarma S∩┐╜ras∩┐╜nda Dikkat Edilecek Kriter'
  325.     Font.Color = clNavy
  326.     Font.Height = -11
  327.     Font.Name = 'MS Sans Serif'
  328.     Font.Style = []
  329.     ItemIndex = 0
  330.     Items.Strings = (
  331.       '∩┐╜.Kart∩┐╜ndaki fyt.trhleri,yenifyt.db'#39'den eski ise aktar'
  332.       'Birebir yeniyt.db'#39'deki fiyat ve trh.leri aktar')
  333.     ParentFont = False
  334.     TabOrder = 12
  335.   end
  336.   object EskiFytUTab: TTable
  337.     DatabaseName = 'ECZ'
  338.     TableName = 'URFAYAR.DB'
  339.     Left = 460
  340.     Top = 69
  341.     object EskiFytUTabILACNO: TIntegerField
  342.       FieldName = 'ILACNO'
  343.     end
  344.     object EskiFytUTabFIYAT: TCurrencyField
  345.       FieldName = 'FIYAT'
  346.     end
  347.     object EskiFytUTabFITARIH: TDateTimeField
  348.       FieldName = 'FITARIH'
  349.     end
  350.   end
  351.   object YeniFiyaTab: TTable
  352.     DatabaseName = 'ECZ'
  353.     TableName = 'YENIFYT.DB'
  354.     Left = 386
  355.     Top = 72
  356.     object YeniFiyaTabILACKOD: TStringField
  357.       FieldName = 'ILACKOD'
  358.       Size = 13
  359.     end
  360.     object YeniFiyaTabILACAD: TStringField
  361.       FieldName = 'ILACAD'
  362.       Size = 36
  363.     end
  364.     object YeniFiyaTabFIYAT: TCurrencyField
  365.       FieldName = 'FIYAT'
  366.     end
  367.     object YeniFiyaTabFITARIH: TDateField
  368.       FieldName = 'FITARIH'
  369.     end
  370.   end
  371.   object UrunlerTab: TTable
  372.     DatabaseName = 'ECZ'
  373.     IndexName = 'ILACADI'
  374.     TableName = 'URUN.DB'
  375.     UpdateMode = upWhereChanged
  376.     Left = 431
  377.     Top = 32
  378.     object UrunlerTabILACKOD: TStringField
  379.       FieldName = 'ILACKOD'
  380.       Size = 13
  381.     end
  382.     object UrunlerTabILACAD: TStringField
  383.       FieldName = 'ILACAD'
  384.       Size = 36
  385.     end
  386.     object UrunlerTabILACNO: TIntegerField
  387.       FieldName = 'ILACNO'
  388.     end
  389.     object UrunlerTabFIYAT: TCurrencyField
  390.       FieldName = 'FIYAT'
  391.     end
  392.     object UrunlerTabFIYATARIH: TDateField
  393.       FieldName = 'FIYATARIH'
  394.     end
  395.   end
  396.   object BatchMove1: TBatchMove
  397.     Destination = YeniFiyaTab
  398.     Mappings.Strings = (
  399.       'ILACAD=ILACAD')
  400.     Mode = batDelete
  401.     Source = UrunlerTab
  402.     Left = 460
  403.     Top = 32
  404.   end
  405. end
  406.